home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / INFO / XFDISK.ZIP / FLAG.BAS < prev    next >
BASIC Source File  |  1991-08-29  |  3KB  |  63 lines
  1. 100 ' FLAG.BAS
  2. 110 '
  3. 120 ' ╔═══════════════════════════════════════════════════════════════════════╗
  4. 130 ' ║ The program will display the U.S.A flag on a cyan background with a   ║
  5. 140 ' ║ gray shadow around the right and bottom of the flag.  If the program  ║
  6. 150 ' ║ run under BASICA or GW-BASIC, a white border will also be displayed.  ║
  7. 160 ' ║                                                                       ║
  8. 170 ' ║ Press the ESC key to exit the program and return to DOS.              ║
  9. 180 ' ║                                                                       ║
  10. 190 ' ║ Written by:  Dennis W. Person                  Date:  August 29, 1991 ║
  11. 200 ' ║              6828 Devonshire Drive                                    ║
  12. 210 ' ║              Canton, Michigan  48187-2613                             ║
  13. 220 ' ╚═══════════════════════════════════════════════════════════════════════╝
  14. 230 '
  15. 240 KEY OFF
  16. 250 CYAN%=3:BLACK%=0:GRAY%=8
  17. 260 RED%=4:WHITE%=7:BLUE%=1
  18. 270 STAR6$="  *     *     *     *     *     *  "
  19. 280 STAR5$="     *     *     *     *     *     "
  20. 290 COLOR WHITE%,CYAN%,WHITE%:CLS
  21. 300 LOCATE ,,0
  22. 310 LOCATE 3,6:COLOR ,BLUE%:PRINT SPC(35);
  23. 320 COLOR ,RED%:PRINT SPC(35);
  24. 330 LOCATE 4,6:COLOR ,BLUE%:PRINT STAR6$;
  25. 340 COLOR ,RED%:PRINT STRING$(35,220);
  26. 350 LOCATE 5,6:COLOR ,BLUE%:PRINT STAR5$;
  27. 360 COLOR ,WHITE%:PRINT SPC(35);
  28. 370 LOCATE 6,6:COLOR ,BLUE%:PRINT STAR6$;
  29. 380 COLOR ,RED%:PRINT SPC(35);
  30. 390 LOCATE 7,6:COLOR ,BLUE%:PRINT STAR5$;
  31. 400 COLOR ,RED%:PRINT STRING$(35,220);
  32. 410 LOCATE 8,6:COLOR ,BLUE%:PRINT STAR6$;
  33. 420 COLOR ,WHITE%:PRINT SPC(35);
  34. 430 LOCATE 9,6:COLOR ,BLUE%:PRINT STAR5$;
  35. 440 COLOR ,RED%:PRINT SPC(35);
  36. 450 LOCATE 10,6:COLOR ,BLUE%:PRINT STAR6$;
  37. 460 COLOR ,RED%:PRINT STRING$(35,220);
  38. 470 LOCATE 11,6:COLOR ,BLUE%:PRINT STAR5$;
  39. 480 COLOR ,WHITE%:PRINT SPC(35);
  40. 490 LOCATE 12,6:COLOR ,BLUE%:PRINT STAR6$;
  41. 500 COLOR ,RED%:PRINT SPC(35);
  42. 510 LOCATE 13,6:COLOR BLUE%,WHITE%:PRINT STRING$(35,223);
  43. 520 COLOR RED%:PRINT STRING$(35,223);
  44. 530 LOCATE 14,6:PRINT SPC(70);
  45. 540 LOCATE 15,6:COLOR ,RED%:PRINT SPC(70);
  46. 550 LOCATE 16,6:COLOR WHITE%:PRINT STRING$(70,220);
  47. 560 LOCATE 17,6:COLOR ,WHITE%:PRINT SPC(70);
  48. 570 LOCATE 18,6:COLOR ,RED%:PRINT SPC(70);
  49. 580 LOCATE 19,6:PRINT STRING$(70,220);
  50. 590 LOCATE 20,6:COLOR ,WHITE%:PRINT SPC(70);
  51. 600 LOCATE 21,6:COLOR ,RED%:PRINT SPC(70);
  52. 610 LOCATE 22,6:COLOR GRAY%:PRINT STRING$(70,220);
  53. 620 FOR I%=4 TO 22
  54. 630   LOCATE I%,76:PRINT CHR$(219);
  55. 640 NEXT I%
  56. 650 LOCATE 22,6:COLOR CYAN%:PRINT CHR$(220);CHR$(220);
  57. 660 FLAG$="U N I T E D   S T A T E S   O F   A M E R I C A"
  58. 670 LOCATE 24,(80-LEN(FLAG$))/2:COLOR GRAY%,CYAN%:PRINT FLAG$;
  59. 680 A$=INKEY$:IF A$="" GOTO 680
  60. 690 IF A$<>CHR$(27) GOTO 680
  61. 700 COLOR WHITE%,BLACK%,BLACK%:CLS
  62. 710 SYSTEM
  63.